#!/usr/bin/perl
use CGI;
$co = new CGI;
print $co->header;
print $co->start_html();
print $co->center($co->h1('Press button'));
print $co->image_button(-name=>'button',-src=>'../../../icons/dir.gif',-onclick=>"displayHello()");
print $co->end_html;
sub displayHello()
{
 print "hello";
}