$ cat works.sh
#!/bin/sh
perl -le 'print "Screen" if -t STDOUT'
perl -le 'print "File" unless -t STDOUT'

$ sh works.sh
Screen
$ sh works.sh > out.txt
$ cat out.txt
File