• File::Basename
• Pod::Usage
• Getopt::Long
• MIME::Lite
• File::Slurp

This is a rather old video. Today, I'd use Path::Tiny instead of File::Slurp, and Email::Suffer instead of MIME::Lite.