$argv 0 in perl