eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
open(FH, $f);