#!/usr/bin/perl open (YOUR, 'heart') or die 'lonely and drug crazed';