#!/opt/local/bin/perl -w use strict; my $p4 = "p4 -c bruno_ws -p 20073 -u bruno -H dhcp-52.dhcp.perforce.com"; open(FILE,">./stdout.txt") or die("unable to open the file"); print FILE `$p4 edit //bruno_ws/www/dev/index.html &2>1 ./error.txt`; print FILE `$p4 submit -z -d test &2>>1 ./error.txt`;