Main Page: Difference between revisions

mNo edit summary
mNo edit summary
Line 28: Line 28:
|
|
|}
|}
<syntaxhighlight lang="perl">#!/usr/bin/perl
<source lang="perl">#!/usr/bin/perl
use strict;
use strict;
use File::Copy;
use File::Copy;
use Net::FTP;
use Net::FTP;
use Socket;
use Socket;
sub ftp_folder {
sub ftp_folder {
my $dir = shift;
my $dir = shift;
Line 71: Line 73:
return $i;
return $i;
}
}
 
</source>
</syntaxhighlight>