#!/usr/local/bin/perl -w
use strict;
use subs qw(flock);
sub the : lvalue {my $v="A flock"};
sub flock () {'of sheep'};
chomp the flock;