...
close $htmlout;

my $url = "http://example.com/directory/$filename";
print "Location: $url\n\n";