#!/usr/bin/perl print("Wait while generating..."); open(STDOUT,"> uins.txt"); $pass = "123"; $id = 5224701; $id2 = 5224710; do{ print("$id;$pass\n"); $id++; }while($id<=$id2); close(STDOUT);