my $episode = undef;
GetOptions(
- 'h|host=s' => \$host,
- 'p|port=s' => \$port,
- 'e|episode' => \$episode,
- 'd|descripton' => \$description
+ 'd|descripton' => \$description,
+ 'e|episode' => \$episode,
+ 'h|host=s' => \$host,
+ 'p|port=s' => \$port,
);
die "Sorry, port isn't a number.\n"
=over
-=item B<-h HOST, --host=HOST>
-
-The host to check, defaults to localhost.
-
-=item B<-p PORT, --port=PORT>
+=item B<-d, --description>
-The port to use when connecting to MythTV, defaults to 6544.
+Display the description for the scheduled recordings.
=item B<-e, --episode>
Display the episode (subtitle) for the scheduled recordings.
-=item B<-d, --description>
+=item B<-h HOST, --host=HOST>
-Display the description for the scheduled recordings.
+The host to check, defaults to localhost.
+
+=item B<-p PORT, --port=PORT>
+
+The port to use when connecting to MythTV, defaults to 6544.
=back