Select Code to Download

my $date =`/bin/date +'%m%d%y'`;
chomp $date;
...
  die "This should never happen: $perldate != $date" 
      if $perldate ne $date;
}

while (<HANDLE>) {
    next unless ( /FREEZING media id (.*)/ );
    print "I am FREEZING $1\n";
}