#!/usr/bin/env perl
use Date::Simple ('date','today');

my $HOME = q(/path/to/home);
my $BACKUP_DIR = $HOME.q(/backup);
my $tar = q(/bin/tar);

$date = today();

# print "$tar czvf $HOME/$date.tar.gz $HOME/public_html $HOME/work\n";
`$tar czvf $BACKUP_DIR/home-$date.tar.gz $HOME/public_html $HOME/work`;
`$tar czvf $BACKUP_DIR/www-$date.tar.gz /var/www`;

#!/usr/bin/perl
use Net::DNS;
my $res   = Net::DNS::Resolver->new;
while (<>){
	chomp;
	my $host  = $_;
	my $query = $res->search($host);

	if ($query) {
		foreach my $rr ($query->answer) {
			next unless $rr->type eq "A";
			my $address = $rr->address;
			printf("%-20s : %14s\n" ,$host,$address);
		}
	} else {
		warn "query failed: ", $res->errorstring, "\n";
	}
}

sub func($$@){
	my($a,$b,@list)=@_;
}

&func($a,$b,@list);