#!/usr/bin/perl
#
# This'll grab the first line from a file that's been 
# exported to TSV and cut then pump that to 
# standard output seperated by newlines. 
#
# Used for a 2 minute exercise

$file = $ARGV[0]; 
@contents = `cat $file` or die "problem with $file?\n";  
(@bee) = split("\t",$contents[0]); 
foreach $beez (@bee) { 
	print $beez."\n";
}
exit(0);