Select Code to Download

#/usr/bin/perl -w
use strict;
...
    return unless ($data);
    #...process $data.....
}

              (__)
              (\/)
       /-------\/
      / | 666 ||
     *  ||----||