#!/usr/bin/perl -w BEGIN { if ($ENV{'RUNMETH'} eq 'DEBUG'){ chdir qq~/tmp/working/fooa~; } else { chdir qq~/tmp/working/foob~; } } require qq~./startlib.pl~; print $money; 1;