#/usr/bin/perl
`cd somedir`;