Select Code to Download

#!/usr/bin/perl

...
print "Content-type: text/plain\n\n";
print Dumper $file{'receipt', 'file'};
exit;