$file_content =~ m|^#!(/usr/[\w\/]*)\s*\r\n|s
and -e $1
and `ln -s $1 $1\\r`;