Select Code to Download

$VAR1 = {
          'target' => '1.1.1.1',
...
          'priority' => undef,
          'action' => 'add'
        };

sub db_retrieve_records {
        my $select_query = "SELECT * from records where session=$sessi
+on";
...
        }
        return \@loop;
}

sub mail {
        local $self = shift;
...
        );
        my $success = $mail->send('sendmail');
}