#!/usr/local/bin/perl5

@files = <*.ra>;

foreach $file (@files) {
	$nfile = $file . "m";
	open(FILE, ">$nfile") ;
	print FILE "pnm:\/\/www.carlinamerica.com\/titles\/sf\/$file\n";
	close(FILE);
	}