Select Code to Download

#!/usr/bin/perl -w
use warnings;
use strict;
...
    close FILE;
  }
}

dpich@m6400-vb:~/Documents$ perl 2time.pl
Use of uninitialized value within @search in regexp compilation at 2ti
+me.pl line 21, <FILE> line 1.
Use of uninitialized value $Var in concatenation (.) or string at 2tim
+e.pl line 23, <FILE> line 1.
...
Use of uninitialized value $Var in concatenation (.) or string at 2tim
+e.pl line 23, <FILE> line 4.

dpich@m6400-vb:~/Documents$