title: perl - disk name on Linux
body: <p>What module would you recommend to get a disk name on Linux? I've done some search on CPAN but all modules I've found are too old. In Bash I can use something like:</p>
  
  <pre><code>disk_name=$(df |grep -w '/'|awk '{print $1}'|cut -d/ -f3)
  echo $disk_name
  sda6
  </code></pre>
  
  <p>Please help me to understand how to do same in Perl.
  Thanks.</p>