my $foo;
open $foo, "whatever"  or die;