Select Code to Download

#!/usr/bin/perl
$size = 1024;
...
read(DATA,$image,$size);
print $image;
__DATA__