Select Code to Download

#! /usr/bin/perl -w
use strict;
...
sub foobar {
  print "foo$_[1]bar\n";
}

Use of uninitialized value in concatenation (.) or string at - line 7.
foobar

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

#! /usr/bin/perl
use strict;
...
  no warnings qw (uninitialized);
  print "foo$_[1]bar\n";
}