.
.
.	

open (VARIABLES, "<variables.dat");
@Variables=<VARIABLES>;
close VARIABLES;
chomp @Variables;
	
.
.
.

# Sending information to smtp server
$smtp=Net::SMTP->new($Variables[2]);
$smtp->mail( $Variables[3] );
$smtp->to( $Variables[4] );
.
.
.