Put[Plot[Sin[x],{x,0,2Pi}],"graph.eps"]