sub get_file_and_args {
    my ($path, ) = @_;
    my (@info, );
    while (1) {
        last if ((@info = stat ($path)));
        last if ($path !~ s{^(/.+)(/+.*)}{$1});
        push (@args, $2);
    }
    
    return ($path, \@args);
}