#!perl -wl
foreach (@ARGV)
{
  print "$_\n  ", RISCOS::Filespec::riscosify($_);
}
