#!/usr/bin/perl print "Choose a task from the list below\n 0. Internet\n 1. email\n 2. web\n 3. web page building\n 4. word processing\n 5. spreadsheets\n 6. calendar\n 7. contacts\n 8. timer\n 9. photo editing\n 10. drawing\n 11. CD player\n"; $application = <>; chomp $application; if ($application eq "0") { system 'kppp'; } elsif ($application eq "1") { system 'pine'; } elsif ($application eq "2") { system 'netscape'; } elsif ($application eq "3") { system 'gnp'; } elsif ($application eq "4") { system 'gxedit'; } elsif ($application eq "5") { system 'gnumeric'; } elsif ($application eq "6") { system 'gnomecal'; } elsif ($application eq "7") { system 'gnomecard'; } elsif ($application eq "8") { system 'gtt'; } elsif ($application eq "9") { system 'gimp'; } elsif ($application eq "10") { system 'killustrator'; } elsif ($application eq "11") { system 'kcd'; } else { print "choose a number between 0 and 11"; }