Select Code to Download

#!/usr/bin/perl
use strict;
...
}
# not needed
exit;

#!/usr/bin/perl -w # use warnings!
use strict;
...
   print "$city, $state\n";
   print "$phone \n";
}