Looks like I found an answer to my own question. I just needed to set up my alias with a \!^ to pass along the param to perl. ex: alias warp 'cd `warp.pl \!^`' and then have the perl script print out the destination directory.