use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';

my $query = new CGI;

print $query->header();
print $query->start_html();
print $query->button( 
        -name => "Download", 
	-value=>"Download Text File",
	-onclick=> "window.location.href='/123.inp';"
	);
print $query->end_html();