#!/usr/bin/perl
# fred.pm:
package Fred;

sub Fred{
    print "$&\t$+\n";
}
1;