use RISCOS::Filespec;

my $type = shift;

die "$0 <filetype> [<pattern> ...]\n" unless $type;

foreach (@ARGV)
{
    RISCOS::File::settype $type, glob($_);
}
