#!/usr/bin/perl
open(MYINPUTFILE, "<funtime.dat");
while(<MYINPUTFILE>)
   {
    my($line) = $_;    
    chomp($line);
    @data = split(/,/, $line);
    if ((@data[2] eq "D")||(@data[2] eq "C"))
        { 
            printf ("\n type ");
            print @data[2]." ";
            print @data[1].".txt ";
        }
    else
        {
        print @data[1].".txt ";  
        }
    }
close(MYINPUTFILE);