sub frob_file {
    my $frobbable_filename = shift;
    die "Error" if !-e $frobbable_filename or -d $frobbable_filename;
    die "Nope!" if not_frobbable($filename);

    ... frob file ...
}