in reply to #!/usr/bin/perl -w and use warnings;
no warnings; or no warnings qw(uninitialized); [download]