#!/usr/bin/perl BEGIN { print "THIS IS A TEST FILE - IT IS NOT SUPPOSED TO DO ANYTHING\n"; } use lib '.'; use a; use b; use c; use Socket; use strict; print "Done\n";