Programming

#!/usr/bin/perl -w
 
 #     Author Daniel Høyer Iversen
<perl@dahoiv.net>
 #
 #      This program is free software; you can redistribute it and/or modify
 #      it under the terms of the GNU General Public License as published by
 #      the Free Software Foundation; either version 2 of the License, or
 #      (at your option) any later version.
 #
 #      This program is distributed in the hope that it will be useful,
 #      but WITHOUT ANY WARRANTY; without even the implied warranty of
 #      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #      GNU General Public License for more details.
 #
 #      You should have received a copy of the GNU General Public License
 #      along with this program; if not, write to the Free Software
 #      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 #      MA 02110-1301, USA.
 
use Net::SMTP;
 
$email = "name@domain.com";
 
#Get the ip address
system('wget -q dahoiv.net/ip');
 
$data_file="index.html";
open(DAT, $data_file) || die("Could not open file!");
$ip=<dat>;
close(DAT); 
 
system('rm index.html');
 
#mail script
$smtp = Net::SMTP-&gt;new('smtp.online.no',
	Timeout =&gt; 30,
	)|| print "ERROR creating SMTP obj: $! n";
$smtp-&gt;mail("ipaddress@dahoiv.net");
$smtp-&gt;to($email);
$smtp-&gt;data();
$smtp-&gt;datasend("To: $email n");
$smtp-&gt;datasend("Subject: Ipaddress");
$smtp-&gt;datasend("n");
 
$smtp-&gt;datasend("$ip");
$smtp-&gt;dataend();
$smtp-&gt;quit();
</dat></perl@dahoiv.net>