Select Code to Download

#!/usr/bin/perl

...
  while (defined($line=$file->read)) {
      print "$line";
  }

#!/usr/bin/perl -w

...
    }

1;