[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 ~]#