#!/usr/local/bin/perl

$result = system("PATH=$PATH:/usr/local:/usr/local/bin:/usr/ccs:/usr/ccs/bin:/usr/ucb; export PATH; bash;");
print $result . "\n";