#! /usr/bin/perl
use strict;
use warnings;

main->foobar($ARGV[0]);

sub foobar {
  no warnings qw (uninitialized);
  print "foo$_[1]bar\n";
}