#!/usr/local/bin/perl

open(MYFILE, "output1.tmp");

while($a = <MYFILE>) {
	chop $a;
	@b = split(' ',$a);
	if (shift(@b) ne "Free") { system("dosread $a $a"); } ;
}

close(MYFILE);