Skrive til fil

Hej alle, jeg vil gerne lave en ændring til denne stump perl script:

&ADVLockClose (DBMLIST, \"dbmlist.txt\");
    if ($cryptword || !($RequireAdminApproval)) {
        &ADVLockOpen (COUNT, \"adlist.txt\");
        @adlist = <COUNT>;
        seek (COUNT,0,0);
        foreach $adlist (@adlist) {
            print COUNT \"$adlist\";
        }
        print COUNT \"$AccountName\\n\";
        truncate (COUNT,tell(COUNT));
        &ADVLockClose (COUNT, \"adlist.txt\");
    }
    else {
        &ADVLockOpen (COUNT, \"adnew.txt\");
        @adnew = <COUNT>;
        seek (COUNT,0,0);
        foreach $adnew (@adnew) {
            print COUNT \"$adnew\";
        }
        print COUNT \"$AccountName\\n\";
        truncate (COUNT,tell(COUNT));
        &ADVLockClose (COUNT, \"adnew.txt\");
        &SendMail($email_address,\"admin\");
    }
    $INPUT{\'reviewone\'} = $AccountName;
    &reviewone;
}


Scripten skriver indholdet af variablen $Accountname til filen adlist.txt

Jeg vil gerne yderligere skrive variablen $url til filen urllist.txt

Hvordan putter jeg det ind i koden.

NB: Dette er kun en del af scriptet.