#! /usr/bin/perl -w
use strict;

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

sub foobar {
  print "foo$_[1]bar\n";
}