use strict;
use warnings;

##</code><code>##

use strict;
use warnings;

my ($pkgname, $envname, $id) = @ARGV;

if (defined $id)
{
    chomp $id;
    print "Third argument: >$id<\n";
}
else
{
    print "No third argument\n";
}

##</code><code>##

chomp;
s/^\s+|\s+$//g; # trim spaces