Select Code to Download

$ ./testpl.pl bryan@domain1.net
Can't use string ("0") as a symbol ref while "strict refs" in use at .
+/testpl.pl line 29.
$ cat -n testpl.pl | grep 29
    29  open (@checkuser_output, "checkuser $user{'name'}\@$user{'doma
+in'} $domain_action{$user{'domain'}}") || die "Failed: $!\n";

#!/usr/local/bin/perl -Tw
use strict;
use Data::Dumper;
...
open (my $checkuser_output, "checkuser $user{'name'}\@$user{'domain'} 
+$domain_action{$user{'domain'}}") || die "Failed: $!\n";

print Dumper @checkuser_output