#!/usr/bin/perl   # 830179.pl

sub foo {
    print "foo(): @_\n";
}

print "bar\n";