#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser set_message);
use CGI qw(-oldstyle_urls :standard);       

print header();

my @acc = qw(12345 67895 123445 112288 3736666 445899);

my $c=0;

my $dmenu="<select name=dropdown>".
      
foreach my $accs(@acc)
  {
    $c++;      
    "<OPTION value=$c>$accs</OPTION>".
          
  }

"</select>";
            
            
            
print $dmenu;