#!/usr/local/bin/perl -T -w -i ~me/mypath/