Perl: get $0 absolute path

use Cwd 'abs_path';

print abs_path($0);