#!/usr/bin/perl
$name = 'turd';
$blah = 'sample';

##</code><code>##

#!/usr/bin/perl -w

use strict;

use vars qw($name $blah)
require './turd.pl';