Problem:
Question- Write a PERL script to help users calculate compressed file size. Prompt the user to enter the original size of a file (in bytes) from the keyboard. Then use the following rules for calculating the compressed file size. Display the result on the screen.
* If the size is less than 5000 bytes, the compression ratio is 90%;
* If the size is between 5000 and 50000 bytes, the compression ratio is 70%;
* If the size is more than 50000 bytes, the compression ratio is 40%.
Please explain how users calculate compressed file size in PERL script.