perl -MO=Deparse -e 'open (DF, "test.txt") || die "Cant read test.txt\n";'