if( scalar( @ARGV ) != 4 )
{
    die "Not enough args\n";
}

my ( $port, $user, $client, $path ) = @ARGV;
print `p4 -p $port -u $user -c $client sync $path\#have,head`;