[gray]#!/usr/bin/perl[/gray]
[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]warnings[/green][red];[/red]
[black][b]use[/b][/black] [green]diagnostics[/green][red];[/red]
[gray][i]#Choice of HLR[/i][/gray]
[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]%choices[/blue] = [red]([/red]
[fuchsia]1[/fuchsia] => [fuchsia]1011235[/fuchsia],
[fuchsia]2[/fuchsia] => [fuchsia]1011234[/fuchsia],
[fuchsia]3[/fuchsia] => [fuchsia]1011233[/fuchsia],
[fuchsia]4[/fuchsia] => [fuchsia]1011232[/fuchsia],
[red])[/red][red];[/red]
[maroon]enter[/maroon][red]([/red][red])[/red][red];[/red]
[url=http://perldoc.perl.org/functions/sub.html][black][b]sub[/b][/black][/url] [maroon]enter[/maroon] [red]{[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [red]"[/red][purple]Enter a choice [1 2 3 or 4]: [/purple][red]"[/red][red];[/red]
[url=http://perldoc.perl.org/functions/chomp.html][black][b]chomp[/b][/black][/url] [red]([/red][black][b]my[/b][/black] [blue]$in[/blue] = <STDIN>[red])[/red][red];[/red]
[olive][b]if[/b][/olive] [red]([/red][url=http://perldoc.perl.org/functions/exists.html][black][b]exists[/b][/black][/url] [blue]$choices[/blue][red]{[/red][blue]$in[/blue][red]}[/red][red])[/red] [red]{[/red]
[url=http://perldoc.perl.org/functions/exec.html][black][b]exec[/b][/black][/url][red]([/red][red]"[/red][purple]/mds1/ftm/bin/mtp_protocol -c [purple][b]\"[/b][/purple]/dev/x25 1_[blue]$choices[/blue]{[blue]$in[/blue]}[purple][b]\"[/b][/purple] -l 2 -P [purple][b]\"[/b][/purple]AXE>[purple][b]\"[/b][/purple] -Q [purple][b]\"[/b][/purple]AXE>[purple][b]\"[/b][/purple] -R [purple][b]\"[/b][/purple]AXE>[purple][b]\"[/b][/purple][/purple][red]"[/red][red])[/red][red];[/red]
[red]}[/red]
[olive][b]else[/b][/olive] [red]{[/red]
[maroon]enter[/maroon][red]([/red][red])[/red][red];[/red]
[red]}[/red]
[red]}[/red]