#!/usr/bin/perl -w
use strict;

while( <>)
  { # reads from my_file
    ...
  }