#!/usr/bin/perl
$FOO="/etc/passwd";
open FOO || die "Argh: $!\n";