package r;
use strict;
use File::Spec;

tie @ARGV, 'r::Tie::RecursiveARGVArray', @ARGV;

sub import {
}


package r::Tie::RecursiveARGVArray;
use Tie::Array;
use base 'Tie::StdArray';

sub TIEARRAY {
    my ($classname,@init) = @_;
    bless [@init], $classname;
}

sub FETCH {
    # magic here to explode directory contents if -d
}

# etc

##</code><code>##

perl -mr -e ...

##</code><code>##

------------
:Wq
Not an editor command: Wq