#!/usr/bin/perl

 my $input = 'users.txt'; # die Ausgangsdatei
# my $output = '/path/to/ergebnis.sql'; # das Ergebnis

 # öffne die Ausgangsdatei, verwende ein lexikalisches Filehandle
 # und fange eventuelle Fehler ab.
 # verwende die 3-Arg-Form von open
 open my $fh, '<', $input or die $!;
 $i=1;
 while( my $line = <$fh> ){
 $i++;
 chomp $line; # entferne das Newline
 my ($email, $name) = split / /, $line,2;
 print "INSERT into `profiles` (userid, login_name, realname) VALUES ($i, '$email', '$name');\n";
 
 }
      
close $fh;