#!/usr/bin/perl
use strict;
use warnings;

if ($#ARGV == -1)
{
  print "\n\ncome on man, add some command line args\n\n";
  exit 1;
}

print "found " . @ARGV . " command line args\n\n\n";

print "here they are: @ARGV\n\n\n";

my $scalarvar = join( $", @ARGV);

print "now they are joined into a singled quote scalar var: $scalarvar\n\n\n";

print "printing on seperate lines now:\n";

for (my $i = 0; $i < @ARGV; ++$i)
{
  print "\t$ARGV[$i]\n";
}

print "\n\n\n";