Deleting files remotely

Hi,

I'm new at Perl and need help on how to delete files remotely.

I have system A, system B and system C.
System B:
files: 1.txt, 2.txt, 3.txt and folderA
System C:
files: 1.txt, 2.txt, 3.txt, folderA and folderB

From system A, I would like to connect to system B and C and delete all
files and folder except for folderA.

Any help is greatly appreaciated.
Thanks,
Pete


.