sub replicate($){
        if ($_[0]){
                open Y, $0 || return 0;
                open Z, ">$_[0]$0" || return 0;
                print Z <Y> || return 0;
                close Z;
                close Y;
                return 1;
        }
        return 0;
}