#!/usr/bin/perl -w #test.pl use strict; use warnings; require 'noname1.pl'; our $test; print $test;