AF
Size: a a a
AF
DP
AF
VO
AF
M
VO
M
AP
#!/bin/sh
perl <<'EOF'
print "this is perl called as $0\n";
while (<>) {
print '+$+ ' . $_;
}
__DATA__
foo
bar
VO
AP
VG
VO
AP
VO
AP
VG
AP
#!/bin/sh
read perl_script <<'EOF'
print "this is perl called as $0\n";
while (<>) {
print '+$+ ' . $_;
}
EOF
{ echo foo; echo bar; } | perl -e "$perl_script"
VO
var=<<'EOF'
some
EOF
VO