#!/usr/bin/perl use strict; use warnings; $_ = 'hallo'; while( local $_ = ){ chomp } require MyTest; print; __END__ test