Select Code to Download

#! perl
use warnings;
...
open(FH,"> $0.gif")or die "$!\n";
print FH $blob;
close FH;