script2.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..500) {
   9         print $string;
  10 }
  11
  12 print;