On file sending

[sasimca007]

Hello friends,
Generally when some systems are in LAN we can pass some files from one computer to another through some commands on command propmt. But through perl programming how is it possible?

For example, in ubuntu we type as following
scp /home/sasi/logo.gif <hostusername>@ <host ip>:~
then it asks for the password and after giving correct password it will pass that file to that user.

[micmast]

[CODE=perl]
#!/usr/bin/perl

$filesending = `scp ....`;

[/CODE]