my $object = Foo::->new ( file => "$ARGV[0]" );