use Cwd 'abs_path';
print abs_path($0);