use Foo;

my ($bar) =  @ARGV;
my $foo = Foo->new( bar => $bar );