#/usr/bin/perl -w
########################################################################
#
# Simple example of using Inline::Awk.
#
# reverse('©'), November 2001, John McNamara, jmcnamara@cpan.org
#
use Inline AWK;
use strict;
hello("Awk");
__END__
__AWK__
function hello(str) {
print "Hello " str
}