Select Code to Download

  while ($bytesread = read($raw_file,$buffer,1024)) {
        print O $buffer;
    }

#!/usr/bin/perl
...
1;