#!/usr/local/bin/perl


	open(LISTE, "filer.txt");
	foreach $_ (<LISTE>)
	{
		$file = $_; chop($file);
    		$rpm_file = "$file".".ram";

		open(RPM, ">"."$rpm_file");
		print RPM "pnm://kark.hiof.no/Almashriq/UmKalthoum/$file.ra";
		close(RPM);

	}
	close(LISTE);

































