Ejecutar curl desde un perl scripts

Estoy tratando de usar curl desde un perl script usando un formato abierto por tuberías:

my @cmd = ('curl', '-u','username:password', '-g','-T', "$upfile","mydomain/directory");
die '@cmd must have more than one element' unless @cmd>1;
open my $fh,'-|', @cmd or die $!;
close $fh or die $! ? $! : $?;

pero estoy recibiendo este error

curl: (23) Failed writing body

Con MacOS 13.3. Alguien arrojar algo de luz por favor?