sub addVoter{
        open(AV,">>voters.txt");
        my $addSsn="";
        print "What is your name (first and last)? ";
        chomp($addName=<STDIN>);
        print AV "$addName:";
        my $checked=0;
        while (($addSsn !~ /^\d{3}-\d\{2}-\d{4}$/){

#! /usr/bin/perl

open (my $FILE, "<", "test_file");
my @contents=<$FILE>;
my $line_count=scalar(@contents);
print "This file has $line_count lines.\n";
print "which line do you want to check [Enter a number between 1 and $line_count]";
chomp(my

function submitPlaylistRequest{
   var pListForm=documet.getElementByID('playlistForm');
   pListForm.urls.value=urls;
   pListForm.submit();

function submitPlaylistRequest{