script1.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4
   5 my $string = " :) " unless $ARGV[0];
   6 $string = " (: " unless not $ARGV[0];
   7
   8 foreach (1..1000) {
   9         print $string;
  10 }
  11
  12 print;