#!/usr/bin/perl -w
use strict;
my $file = '/home/steven/x.x-sort';
open(INFO, $file) or die "Couldn't open $file: $!";
while (<INFO>){
        chomp;
        print "\nhttp://website.org/session2?ip=$_&email=you%40there.com\n";
}
close(INFO) or die "Error writing $file: $!";