#/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 

}