#!perl -lw
# Version 0.01
use RISCOS::Module;


foreach $mod (@ARGV)
{
    # Erm.my $mod isn't my'ed until after the next line!
    my $mod = grab RISCOS::Module ($mod);
    if ($mod) {
	print scalar $mod->Dump;
    }
}

# Or the oneliner
# perl -MRISCOS::RomModule -le 'foreach (rommodules) {print $_->Line()}'