Subject: | Example does not work |
straight out of the POD, this does not outptu anything.
use Shell::Parser;
my $parser = new Shell::Parser;
print $parser->parse("
# find my name
if [ -f /etc/passwd ]; then
grep $USER /etc/passwd | awk -F: '{print $5}' /etc/passwd
fi
");