Select Code to Download

#!/usr/bin/perl -w
use strict;
...
#
#error should say "can't open $infile for read", etc....
#we are past the usage stuff...

open STDERR, ">/dev/null";