#!/usr/bin/perl -w use strict; use warnings; use lib '.'; use test; my $l = 200; my $ld = 'foo'; #line $l $ld ; test::test(); exit;