perl script wanted

I need simple perl script

df -m with grab the percentage (option) and grab the size of free space (grab)
However I also want user ??? quota’s available. Archhh ..
my Qube does not give me that secret ..

Any help is appreciated.