[root@sagrada ~]# perl list-disks.pl
elseif should be elsif at list-disks.pl line 130.
Bareword found where operator expected at list-disks.pl line 133, near "push(@de                                                                                            vs, "/dev"
  (Might be a runaway multi-line // string starting on line 130)
String found where operator expected at list-disks.pl line 137, near "local $ide                                                                                            dev = ""
  (Might be a runaway multi-line "" string starting on line 133)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 140, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 137)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 145, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 140)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 150, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 145)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 154, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 150)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 158, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 154)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 162, near "push(@devs                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 158)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 178, near "#printf ""
  (Might be a runaway multi-line "" string starting on line 162)
        (Missing semicolon on previous line?)
Bareword found where operator expected at list-disks.pl line 178, near "#printf                                                                                             "Found"
        (Missing operator before Found?)
Backslash found where operator expected at list-disks.pl line 178, near "%s\"
        (Missing operator before \?)
String found where operator expected at list-disks.pl line 180, near "#printf ""
  (Might be a runaway multi-line "" string starting on line 178)
        (Missing semicolon on previous line?)
Bareword found where operator expected at list-disks.pl line 180, near "#printf                                                                                             "Found"
        (Missing operator before Found?)
Backslash found where operator expected at list-disks.pl line 180, near "%s\"
        (Missing operator before \?)
String found where operator expected at list-disks.pl line 181, near "push @devs                                                                                            ,(sprintf ""
  (Might be a runaway multi-line "" string starting on line 180)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 189, near "local @cds                                                                                            tat = stat(""
  (Might be a runaway multi-line "" string starting on line 181)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 193, near "local $dev                                                                                            s = join(""
  (Might be a runaway multi-line "" string starting on line 189)
        (Missing semicolon on previous line?)
String found where operator expected at list-disks.pl line 198, near "open(PARTE                                                                                            D, ""
  (Might be a runaway multi-line "" string starting on line 193)
        (Missing semicolon on previous line?)
Bareword found where operator expected at list-disks.pl line 198, near "open(PAR                                                                                            TED, "LANG"
Bareword found where operator expected at list-disks.pl line 198, near "/dev/nul                                                                                            l"
        (Missing operator before null?)
Bareword found where operator expected at list-disks.pl line 212, near "system("                                                                                            parted"
  (Might be a runaway multi-line "" string starting on line 198)
Bareword found where operator expected at list-disks.pl line 212, near "/dev/nul                                                                                            l"
        (Missing operator before null?)
String found where operator expected at list-disks.pl line 213, near "$disk_labe                                                                                            l = ""
  (Might be a runaway multi-line "" string starting on line 212)
        (Missing semicolon on previous line?)
Bareword found where operator expected at list-disks.pl line 213, near "$disk_la                                                                                            bel = "gpt"
        (Missing operator before gpt?)
String found where operator expected at list-disks.pl line 220, near "open(FDISK                                                                                            , ""
  (Might be a runaway multi-line "" string starting on line 213)
        (Missing semicolon on previous line?)
Bareword found where operator expected at list-disks.pl line 220, near "open(FDI                                                                                            SK, "parted"
Number found where operator expected at list-disks.pl line 220, near "fdisk 2"
        (Do you need to predeclare fdisk?)
Bareword found where operator expected at list-disks.pl line 220, near "/dev/nul                                                                                            l"
        (Missing operator before null?)
syntax error at list-disks.pl line 133, near "push(@devs, "/dev"
Execution of list-disks.pl aborted due to compilation errors.
[root@sagrada ~]#