Use of uninitialized value in string eq at G:\output.pl line 6.

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

if ($ARGV[0] eq 'TEST') {
    print "$ARGV[0]\n";
}