>perl -e"my(my(my(my $sharona)))"

>