use strict;
my $var = "ok" if (@_);
print "$var\n";