#!/usr/bin/Perl

if (@ARGV != 1) {
	print "usage ./catrev.pl file1\n";
	print "@ARGV";
	exit;
}

else {

	$file1 = pop(@ARGV);
	
	open(FILE1,$file1);
	
@array1 = <FILE1>;

foreach (@array1) {
	$each = reverse($_);
	print "$each\n"

}

print "what would you like your file name to be?\n";
$filename = <STDIN>;
chomp ($filename);

if (($filename eq "") || (defined $filename eq 'false')) {
	print "enter some data!";
	exit;
}

else {
	sub hellofile {
print "$_[0] is the file to be written";

open (FILE, "> $_[0]") or die "cant create file";

}
$i == 0;
while ($i < 1000000000000000000000) {
hellofile($filename);
$filename .= poop;
$i++;
}

}

}