use strict;
use CGI;

my $CGI = new CGI;

if (my $file = $CGI->param('file')) {
	print $CGI->redirect('http://localhost/'.$file);
}
else {
	print $CGI->header;
	print "stuff";
}