stackoverflow.com 960800 - populate script

populate.pl

#!/usr/bin/perl

use strict;
use DBI;
use DBD::mysql;

my $user = "user7565497";
my $passwd = "KiFeeng3";
my $db = "db7565497";
my $dbh = DBI->connect("dbi:mysql:$db:127.0.0.1:3306", $user, $passwd);

my $Q_INSERT = 'INSERT INTO profiles (id) VALUES (?)'; 
my $S_INSERT = $dbh->prepare($Q_INSERT);

for (my $i=1; $i<=2000000; $i++) {
      $S_INSERT->execute(int(rand(2))+1);
}

END {
      $dbh->disconnect if defined($dbh);
}