sub get_files {

	@files = reverse (map {

	    (split (/\s+/))[8];

	} `ls -lrt`);

	foreach $filename (@files[0..3]) {

        print "$filename\n";
	    
	 }
	}