if (-s $filename) {
    # The file is not empty
}
[download]

For more handy file-tests type perldoc perlfunc and search for "test". (For most people that means type "/test" and hit return.)