my $owner = prompt 'Problem owner (username)';
my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';
my $owner = prompt 'Problem owner (username)';
my $level = prompt 'Problem level', -menu => "beginner\neasy\nmedium\nhard";
my $statement = read_file prompt 'File with problem statement', -complete => 'filenames';