Help for this page
$ pwd >! tmp_1
#!/usr/bin/perl -w use strict; ... system($command); system("pwd >! tmp_1");