sub do_something {
    my ($filename, @rest) = @_;
    return unless defined $filename;
    # ensure basic sanity:
    local $/ = "\n";
    local $, = '';
    local $\ = '';
    local $" = ' ';
    local $@; # we might want to use eval { }
}