Perl script to generate a visual representation of a Linux system's current storage configuration.