if ($co->param('dir')) {
   ####If condition
}
else {
print $co->image_button(-name=>'dir',-value=>'test',-src=>'../../../icons/dir.gif',-onclick=>"parent.location.href=\'first.cgi\'");
   ####Else condition
}