As a minor point: this 
my $usage       = "
Usage: $scriptname (-type<type> -OIMID <oimid> -version <version_numbe
+r> -out <filename>  ) 
           -type <type>              :A|B
          -version <version_number>  :Required.Minimum Security Versio
+n Number.
       -OEMID <oemid>             : Required.
       -out <filename>          : Required.              
          
";

[download]
could be a heredoc, which would make it easier to lay it out nicely: 
my $usage = <<USAGE;
Usage: $0 -type[A|B] -OEMID id -version nnnn -out filename
 
 where
     version: minimum security version (integer)
     OEMID:   one of the OEM IDs fron (source here...)
     out:     name of any writable file

USAGE

[download]
I altered the usage to conform to the more-often used standards from man pages, but you can use whatever makes sense to your users. The point is that it was easy for me to line things up because I'm writing it down exactly the way it will appear when it's printed.

You might also consider just printing to STDOUT instead of forcing an output file; that way your script could, for instance, pipe into grep or sort.

In reply to Re: calling a subroutine from another subroutine by pemungkah
in thread calling a subroutine from another subroutine by abcdefg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.