#!/usr/bin/perl -s
if ($a) { print "user selected a\n"; }
elsif ($b) { print "user selected b\n"; }
elsif ($c) { print "user selected c\n"; }
else { print "no args!\n"; }