Select Code to Download

# remove all the junk in our filename
$filename =~ s/^.*[\\\/]//;

$filename = pack 'H*', $filename;