#!/usr/bin/perl -w use strict; use vars qw($name $blah) require './turd.pl';