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";
}