#!/usr/bin/perl $file = "hello.txt"; if (-r $file and -w $file) { print "$file is readable and writeable.\n"; }