#!/usr/bin/perl -w
use strict;
use 5.010;
use lib "template_stuff";
use html3;

sub rndStr{ join'', @_[ map{ rand @_ } 1 .. shift ] }
my $new_name = rndStr( 5, 'a'..'z', 1..9);
my $ref_to_name = \$new_name;
my $return_page = create_page($ref_to_name);
say "page is $return_page";
email_link($return_page);
sub email_link{
use strict;
use 5.014;
use Net::SMTP;
use config2;

my $link = shift;
my $sub_hash = "my_ftp";
my $host = $config{$sub_hash}->{'smtp'};
say "host is $host";
my $phone = $config{$sub_hash}->{'phone'};
say "phone is $phone";
my $username = $config{$sub_hash}->{'username'};
say "username is $username";
my $password = $config{$sub_hash}->{'password'};
say "password is $password";

if (1) {
 use Net::SMTP::TLS;
 my $mailer = new Net::SMTP::TLS(
        $host,
        #Hello   =>      'some.host.name',
        Port    =>      587, #redundant
        User    =>      $username,
        Password=>      $password)
 or die "Unable to connect to '$host'. $@";
 $mailer->mail("myself");
 $mailer->to($phone);
 $mailer->data;
 $mailer->datasend($link);
 $mailer->dataend;
 $mailer->quit;

 }
  else {
   say '$ENV{USER} does not exists or is not defined.';
  }
}
__END__