#!/usr/bin/perl -w

$file = '/home/steven/x.x-sort';
open(INFO, $file);
@lines = <INFO>;
close(INFO);

my $i;
foreach $i(@lines){
        print "\nhttp://website.org/session2?ip=$i&email=you%40there.com\n";
}