#!c:perlbinperl

$Count = 0;

$pt = 2;

while ( $Count < @ARGV[0] )

{

if (isPrimary($pt))

{

print "$ptn";

$Count++;

}

$pt++;

}

sub isPrimary

{

$flag = 1;

for ($i=2; $i<=$_[0]/2; $i++)

{

if ($_[0] % $i == 0)

{

$flag = 0;

}

}

return $flag;

}