I think you mean: open FOO,">$file" or die "Couldn't open $file: $!"; or open(FOO,">$file") || die "Couldn't open $file: $!";

gav^