#!/usr/bin/perl

open RG, '>./register.txt';
while (<STDIN>) {# i'm test with ARGV,STDIN,ENV and nothing happend
      print RG;
}
close RG;