#! perl -lw
use RISCOS::Filespec;
use RISCOS::File qw(globlist);

for ( globlist( @ARGV ) ) {print}
