#!/usr/bin/perl
#
# trimnums directory


chdir $ARGV[0] if $ARGV[0];

for $f (`ls`) {
	print "File: $f";
	if (open(F,"<$f")) {
		$line = <F>;	# First line.
		close F;
		$line =~ s/\s.*//;
		if (open(F,">$f")) {
			print F "$line\n";
			close F;
		} else {
			print STDERR "### Can't write \"$f\" [!]\n";
		}

	} else {
		print STDERR "### Can't read \"$f\" [!]\n";
	}
}