Select Code to Download

#! /usr/bin/perl -w
use strict;
...
{
 print "$m \n";
}

use of uninitialized value in concatenation or string at ...path...lin
+e 17,<> line 5.