#!/usr/bin/perl
# main program:
use fred;

'fred' =~ /^f(re)d$/;

Fred::Fred();