Get url status code using perl

I want to create a script that the only parameter that I will give him is url. The output of the script will be the status code of the url. Any idea how to do that?