#!/usr/bin/perl

# Reading from STDIN and writing to a file

$filename = shift(@ARGV);

open(LOGFILE, ">> $filename") || die "Can't open $filename: $!";

print "enter something: ";

while(<STDIN>)
{

  print LOGFILE $_;
  print "\nenter something: ";

}

close(LOGFILE);